EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


= 
4 


PSS PS ee Oe STS FSCS ES HS ES TS OSES ES HES ES HS FS ES HHH FSCS HS HS HS ese see HS SESE SSE *S SSS HS SCH FSCS FSCS *S FS SS *S HS HG 


T RRRRRRRR 
T RRRRRRRR 
RR 
RR 
RR 
RR 


LLLLLLLLLL 


LLLLLLLLLL 
LLLLLLLLLL 
LLLLLLLLLL 
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able of coftents 


{¢ $e DECLARATIONS 
(3) 110 LIBSTRA_EBC_ASC = Translate EBCDIC to ASCII 


LIBSTRA_EBC_ASC 
1-008 


¢ 15 
- Translate EBCDIC string to ASCII strin 16-SEP-19 0: AX/VMS Macro V04-0 Pa 
' Breer bs P3597: 88 TENTS Bac e LeR OO mans1 am 
TITLE betty, -EBC_ASC = oteemey ? ot stri 59 to ASCII ggring 
~ IDENT 08/~ : LIBTRAEZA.MAR RKR1008 


NAME ADR @ CO OO NAUE WIN O ODNAUE WN SO ODNIAU EWN CO OONOAUE WN OWOONIOUS Wh 


DUSTIN Be BB EE BB EB BE WANNA NAINA AID PINOPONPONPO NUNN 2 2 OO 


SOOoOoooooooooo 
SOooooooooooo 


Sooooooooeooo 


Sooooooo 


MARBAAAAAALAAAALAALAALALE ASAE A SESE ERR E ESSERE REE E REESE EEE ER RESTS EES ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS oie UNDER A LICENSE mo MAY or USED AND ge Ua 
ON CCORDAN TER F AND 


- * 
3* * 
3* * 
3* * 
3* * 
7* * 
3* ® 
3* 0 P Heo WAR 0 ® 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3* TRANSFERRED. # 
3* ® 
3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
7* ® 
3* ® 
3* ® 
7* ® 
3* ® 
3% ® 
sa ® 
a * 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


IRARRBASARAAAAAAALALASAAAAAASALAAALASELASAREEAASEL ASAE SERS ALAA A SERS ARSED SS 


wy FACILITY: General Utility Library 

ABSTRACT: 

; Translates an EBCDIC string to an ASCII string 
; ENVIRONMENT: User Mode, AST Reentrant 


; AUTHOR: R. Reichert, CREATION DATE: 03-DEC-1979 

; MODIFIED BY: 

> REVISION HISTORY: 

: -001 - Original. RKR 03-DEC-79 

-002 - ppenge ECDIC string descriptor documentation to ‘‘bu.dx"’ 


; 1-003 - Correct .SBTTL text. RKR 19-DEC-79 
; 1-004 - Uee 0 paneer ie convert STR$ signals to LIBS status codes. 
1-005 - peters? cert nat ten Length end address after call to STRSGET1_DX. 
5-June-1 
1-006 = Enhance to recognize additional classes of i jp doocripters 
by invoking LIB mre _SDESC_R3 to extract length 
address of Ist data rte 
Redirect call to Sirs ETi_DX to LIBSSGET1_DD and remove use of 
andler. 


Be Se Oe Se Be Be Oe Se Oe BH Se Se FH Se Se Se Se BH Se Se Se Se Se Se Se FH Se Se Se Se Se Fe Se Se Se Se Se Se FO Se Ge Se Se Se Se Fe Se Se Se Sees ee Se Se Se Beane 


LIBSTRA.EBC_ASC 


- Translate EBCDIC string to ascih Serta us tt 9 90:94:03 al tie Re 


Q 


0000 


62 


Onouw 
—_— 


IBR 


RKR 26-MAY-1981. 
1-007 - Add special-case code to process string des 
read’ iike fixed string descriptors. RKR 
1-008 = Redirect jsb’s from LIBSANALYZE SDESC_R3 to 
LIBSANALYZE_SDESC_R2. 18-NOV-1981. 


6to 10408 
~SRCILIBTRAEZA.MAR; 1 


ayaa 
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EBCDIC string to ASCIT Serin 16-SEP-1986 AX/VMS 
5 ’ rin eee 1obe $4594.58 LC TOMTT eRe TCIBSRACSA.MAR:1 29° 


.SBTTL DECLARATIONS 
> INCLUDE FILES: NONE 


LIBS TRA_EBC_ASC - Translate 
-008 DECLARATION 


: EXTERNAL DECLARATIONS: 


-DSABL GBL : Prevent undeclared 
; symbols from being 
; automatically global. 


-EXTRN LIBSSGET1_DD 3; dynamic string allocator 


-EXTRN LIBSANALYZE_SDESC_R2 ; Extract tongen and address of 
; Ist data byte from descriptor 


-EXTRN LIBSAB_EBC_ASC 3 hy to ASCII translation 


~-EXTRN LIBS_INVCHA ; Return code ‘invalid 
; character’ 


-EXTRN LIBS_INVARG Return — “invalid 


argumen 


CSDOooOoOooooooooQooQooooQooooooooo 
COOQoooooooQoooooooooooooooooo 
COOoOQoQooooooQoQoQoQooQoQoQooooooooooo 
COCO COOCOCCOCOOOCOOOCOOO OOO OOOO O 


SOGDOGDO9O0000 00000 0.00 090009 09 09 09 09 09 09 09 SIN NII NIN NINO AAA 
CON AUS WINS OD NAUE WN $9 OOO NAMES WO ODNAULS WN SH OOWONOUSE 


0000 : MACROS: 
0000 3 
0000 
0000 SSSDEF ; Definition of SS$_ symbols 
44 SDSCDEF ; Descriptor components 
9000 : EQUATED SYMBOLS: 
0000005c 0000 ESC_CHAR = *x5C : ASCII Character "\"' 
000000E0 9000 SOURCE _CODE = *XE0 : EBCDIC Character ‘\"" 
itd 1 
0000 103; 
9000 : PSECT DECLARATIONS: 
00000000 106 ° .PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
9000 EXE, RD, NOWRT. LONG 


IBSTRA_EBC_ASC 
1-008 ie 


oa 
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DIC string to ASCII strin 16-SEP-1984 00:22: AX/VMS Macro V04-0 
- Transiste EBCDIC to AS 6=-SEP-1984 90:99:98 PONTE. RE TCIBTRAESA.MAR: 1 


ox -SBTTL LIBSTRA_EBC_ASC = Translate EBCDIC to ASCII 
FUNCTIONAL DESCRIPTION: 
Translates an EBCDIC string to a ASCII string 
If destination string is a fixed stein its length must match 
the length of the input string (no filling is done). 
If destination string is varying, its length is forced 
(if possible) to be the Length of the source string. If it 
cannot, (MAXSTRLEN too small), LIBS_INVARG is returned. 
; CALLING SEQUENCE: 
status.wlc.v = LIBSTRA_EBC_ASC ( SRC_STR.rbu.dx, DST_STR.wt.dx) 
INPUT PARAMETERS: 
SRC_STR.rbu.dx address of source string descriptor (EBCDIC) 


DST_STR.wt.dx address of destination string descriptor (ASCII) 


ce 
— 
oo 
fn 
say 
mo 
[> Ped 
c™ 


IMPLICIT INPUTS: 

; The EBCDIC to ASCII translation table at LIBSAB_EBC_ASC 

; OUTPUT PARAMETERS: 

: NONE 

; IMPLICIT OUTPUTS: 

; NONE 

; COMPLETION CODES: 

; SS$_NORMAL - Routine successfully completed. 

; LIBS_INVCHA - One or more occurences of an untranslatable 
; character has been detected in the course 
; of translation. 


LIBS_INVARG - If destination string is fixed string and 
= sengtn is not the same as the source 
ength. 


OOOCOSOSSSOOSSSSOSOOCOSCOSOOOOOOOOOOOOOOoOoOO 


SOSOCSCSCSCOSOSOSSOOOSSSSOSSOSOSCSOSOOSCOSOSOSOSOSOSOSOSBVDOOSOSOOOOOSSOOSOSO }YY 
SOOSSCSCOSCOSOSOSOSOOSeSSOOSOSSOSOOSOSOSOOSOOSOSOSOSOSOSOOOSOOOOOOOOOSOSoOO 


; SIDE EFFECTS: 
NONE 


S 


GOOCOQoQoooooooooooeo 


COOOCOCSGSOOSOOSOOSOSOSOOOOSOOSOSOSOOSOSOSOSOSOOOOOOSOOOOOOOOOSOSOOOOOSOO 25 


oooo 


oooo 
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IBSTRA_EBC_ASC - Translate EBCDIC string to ASCI if strin 16-SEP-1984 00: AX/VM cro V04- P 
41888 LIBSTRA_EBC_ASC = Translate EBCDIC to AS ~3EE=1382 9 44: 93 LIBRTL.S REIL INpRAE A.MAR; 1 a i) 
i ; DISPLACEMENTS OFF AP OF INPUT ARGUMENTS: : 
00004 166 SRC_STR 4 : 
§o000808 i DSTOSTR = 8 
1 ; 
4OFC : 176 ENTRY LIBSTRA_EBC_ASC, “M<IV, R2, R3, R4, RS, R6, R7> | ; 
0 09 t extract the lengths and addresses we will need from the source and ; 
80 \f7 3 destination descriptors. : 
5 4 AC 00 6 175 ° MOVL SRC_STR(AP) dress of src descript ; 
32S Ap 9 0006 176 CHE DSCSB_ CLASSEROD, #DSCSK_ELASS Bos Coad Live Fined’? 
3; no 3 
56 04 68C 7d 000 178 MOVa @SRC_STR(AP), R6 3 length->R6, address->R7 3 
09 «11 4 1 BRB 2s 3; join common flow : 
00000000'GF 16 001 181 1$: JSB G“*LIBSANALYZE_SDESC_R2 ; Extract: Length->R1, addr->R2 : 
~~» HW )6hCURe Bats } ¢ MOVa R1, R6 : Length=>R6, address->R7 : 
50 O8 AC DO 001B 184 2$: MOVL  DST_STR(AP), RO ; Address of dst descriptor : 
02 03 a #1 pore 13 coe sCSB_ CLASS(RO), *#OSCSK_ CLASS _D ; read Like fixed ? : 
54 08 86C 7D 0093 187 MOVa @DST_STR(AP), R4 ; Length=>R4, address=->R5 ; 
09 «11 8p 4 138 BRB 4$ 3; join common flow : 
00000000'GF 16 oO 190 3$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: Length->R1, addr->R2 ; 
54 51 7D 0031 191 MOVQ R1, R4 ; length=>R4, address->R5 3 
O08. 198 :+ 
0034 194 . If destination is a dynamic string, reallocate a dynamic string which : 
Ooe 195 ; is the same length as the input string. 3 
bose on 
52 08 AC 00 0034 198 4$: MOVL DST_STR( , R2 s address of dst descriptor : 
02 03 ae 4 oote +44 a pscSB_ LASS (ROS, #OSCSK -ELASS_D D; “enn string dest ? 3 
3 no nam 3 
7E 56 3C OQO3E 01 MOVZWL R6, -(SP) 3 lengt of source 3 
08 AC DD 0041 8g PUSHL DST_STR(AP) 3; cal a s dest desc addr 3 
04 AE DF 0044 0 PUSHAL 4(SP) ; address of Length of source : 
00000000'GF 02 FB et Be ALLS #2, G*LIBSSGET1_DD : ei torate ’ es string 3 
3; equal in len to source 3 
SE 04 0 004E BS ADDL2 #4, SP 3 restare stack 3 
54 8656 C bey 8 MOVZWL R6, RG ; dest length = source length 3 
55 04 A2 DO 0054 8 MOVL DstSA_ POINTER(R2), RS: new destination address : 
21 11 baee st - BRB : join common flow : 
OSA 11 ; If destination is a varying string, force its CURLEN to the MIN ( ; 
Bea \¢ i 3; MAXSTRLEN, Length of source). If we can't, return LIBS_INVARG. : 
05a 514 8: F 
0B 03 ae % Bah 1? re DSCSB_CLASS(R2), #DSCSK ~CLASS. VS ; varying string dest ? 3 
: var : 
56 $5 B1 6 i$ CMPW pScsw_ MAXSTRLEN(R2), R6 ;: : MAXSTRL N "9 length of source : 
3 1F \3 tg te ; won *t fit, exit with error 3 
54 . 6 1 MOVZWL R6, RS ; Set dest (en to source songen 3 
04 B82 54 B60 68 20 MOVW R4, @DSCSA_POINTER(R2) ; Set CURLEN to new length 3 
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1-008 LIBSTRA CBE _ASE = Teams Cate EBCOLE SOAS GogePe1904 ST :aTioe LOMA TS eRe aerBsRacoa.mars? 2% (8) 
OD 11 Ose 1 re BRB 10$ 3 join common flow 
4: § : Otherwise, we have a destination string with Htxeg= Length semantics. 
06E 4 ; Its length must match the Length of the input string, 
ss é ;_else LIBS_INVARG is returned. 
6E $: 
** 38 FS Oot (558 an Sax it banethe aotee 
3: 0 engths matc 
50 00000000' 8F RY O73 9 9$: eoyt #LIBS_INVARG, RO 3; return *Tavalid argument"’ 
bye (538 
78 3+ 
578 : 3; Set up registers for the MOVTUC and MOVTC to follow 
0078 3 10s: 
50 56 860 0078 MOVW R6, RO ; get source length in RO 
51 57 00 Baze 8 sa MOVL R7, R1 ; address of caller's source 
a081 re : registers at this point... 
$81 4g : RO Length of source string 
0081 43; R1 address of source eer ine 
0081 44; R address of destination descriptor 
0081 45; R unknown 
0081 $6 : RG Length of destination string (must be equal to R6) 
0081 47 ; R5 address of destination opr tne 
0081 48 ; R6 length of source string (must be oat to R4) 
449 $¢3 : R7 address of source string (same as R1) 


—_ 


DIC_string to 


| IBSTRA_EBC_ASC A 
-008 - Translate EB 


15 
GH SEria TECSEECIOBL 99:98:08 ALANS Mo 1OEO0 ge. P29" 


s@ 

3; Actual translation Loop. 

3 repeated until we translate all error_free, or fall through with 
3 an error and perform one final MOVTC fo complete translation 


Oe 


MOVTUC RO, (R1), #ESC_CHAR, G*LIBSAB_EBC_ASC, R4, (R5) 


State of regs after a MOVTUC instr. 
RO = number of bytes remaining in 
source string (including the 
byte which caused the escape. 


Is zero only if the entire source 
string was translated and moved 


QOOOO000'GF 5C BF 61 2? 2F 
65 4 


without escape. 
address of the byte which 
resulted in destination string 


R1 


exhaustion or escape. If no 
exhaustion or escape, then 
address of one byte beyond the 
source string. 


address of the table , 
number of bytes remaining in the 
destinatin string. 
address of the byte in the 
destination string which would 
have received the translated byte 
that soueee the escape or would 
have received a translated byte 
if the source string were not 
exhausted. If not exhaustion 
or escape, then address of one 
outs beyond the destination 
string. 
BVC GOOD_COMPL 3 tefatneted by end of string 


MOVB  #ESC_CHAR, (R5)+ 
DECL RO 
DECL RA 


CMPB (R1)+, #SOURCE_CODE 
BEQL 15$ 


RS 
R5 


21. «1 
85 5C 8F 90 
50 (7 
54 7 
EO 8F 8) 9 
E4 


store esc_char in output 
bumping R5 to next byte pos. 
adjust input count for one 
done by hand 

adjust output count for one 
done by hand 

was the input an escape char 


NSNMVUAWI SH HOOCOCUCUVCVVTVVTVCVVVTVCVTC9CC0C0—000 00090008 + MD 


yes ~~ treat as success and 
and continue 


Translate rest of 


ed. 
INVCHA 


a¢ 
3 an untranslatable input char has been dete 
3 string and exit with an error status of LI 


ct 
BS 
MOVTC RO, (R1), O(SP), G*LIBSAB_EBC_ASC, R4, (R5) 


303 ; NOTE: lengths are guarenteed 
6 ; to be equal, so fill_char is 


Pe re Te hhh =) mh ~ hh 
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C EO'AS G-SEPH19B6 11:11:53 EMIORTL.SRESLIBTRAESA.MAR:1 2° (8) 


7? 3; not needed. 
8 3; NOTE: Lengths are guaranteed 
; to be eh so fill_char is 
3; not needed. 
State of regs after a MOVTC instr. 
RO = number of translated bytes 
remaining in source string. 
S$ non zero only if source string 
: ged than destination 
string. 
address of one byte beyond the 
last byte in source string that 
was translated. 


a 


IBSTRA_EBC_ASC 
1-008 


o 
i 


C_string to A 
Translate EB 


mo 
-_ 
o- 
fn 
=o 
zs 
Pu 
mo 


R1 


address of the translation table 


zDD 
Ss 
huun 


oO 


address of one byte beyond the 
destination string. 


nove #LIBS_INVCHA, RO ; return ‘‘invalid char’’ code 


PPrrrrrrrrrrrrr rr rrrr>,r 


Oooooo 
Wooon"c 


50 00000000'8F 00 
04 


GOOD_COMPL: 
50 01 00 ae #SS$_NORMAL, RO ; return success 


04 008 


WR SO OONAUS WN OWONOAUS WO 


WWNUAIAIRROPOPONONONUPONON) 2 2 3 OOO 


- END 
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Symbol fable . Breer robe sities CTORTT.CReTCIBTRACOA.MaR:1 2%" (3) 
DSCSA_POINTER s 4 
DSCSB_CLASS = 3 
DSCSK_CLASS_ = 
DSCSK_CLASS_VS = 
DSCSW-MAXSTRLEN = 
pee 2 

= 
GOO6_COMPL 0 § R s 
LIBSAB_EBC_ASC eeeeenne X 
LIBSANALYZE_ SDESC_R2 eeeeenee x 
LIBSSGET1_D eereeere X 
LIBSTRA_EBC_ASC 00000000 RG 
LIBS_INJARG terrane x 
LIBS_INVCHA eeeeneee =X 0 
SOURTE_CODE = Q00000E0 
SRC_STR = 00000004 
SS$_NORMAL = 00000001 

ee + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
, ee «s 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) O1¢ 41.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_LIBSCODE 00000084 (¢ 180.) 02 ¢ 2.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
Qucseneseneneamenemnanh 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00 :00..08 00:00:0 $3 
iceeys sooner sg SRRRSER SHBG 
Symbol table sort a 00:00:00-35 00:00:02.41 
ss VVUIUVU. sVUU:US. 

Symbol table output 4 $0 00:00.03 00:00:00.02 
Psect synopsis output 00:00:00.01 00:00:00.01 
Cross-reference output ses $4 SS 4 00:00:00.00 
Assembler run totals 441 00:00:05.16 00:00:26.12 


The working set Limit was 1200 pages. 

28498 bytes (56 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 549 non-local and 9 local symbols. 
333 source Lines were read in Pass 1, produc ing 13 object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 
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Page 1 
VAX-11 Macrd Run Statistics LIBRTL.S REIL 18 NORALSA.MARS 1 . (8) 


$ewmemw cree wc ene enor eer ec ere a} 


! Macro Library statistics ! 


ween ee ete ne ec ese ee ece mee wea +} 


Macro Library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLBs200 cay 
604 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBTRAE2A/0BJ=OBJ$:LIBTRAE2A MSRC$:LIBTRAE2A/UPDATE=(ENH$:L IBTRAE2A) 
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